home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / smalltlk.zip / PRELUDE / SYMBOL.P < prev    next >
Text File  |  1990-09-13  |  469b  |  21 lines
  1. temp <- <primitive 110 3 >
  2. <primitive 112 temp 1        " asString " \
  3.     #( #[ 32 250 1 93 243 245] \
  4.     #(  ) ) >
  5.  
  6. <primitive 112 temp 2        " printString " \
  7.     #( #[ 32 250 1 92 243 245] \
  8.     #(  ) ) >
  9.  
  10. <primitive 112 temp 3        " == " \
  11.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 91 248 2 242 \
  12.  92 243 245] \
  13.     #(  ) ) >
  14.  
  15. <primitive 98 #Symbol \
  16.     <primitive 97 #Symbol #Object #\smalltlk\prelude\symbol.st \
  17.     #(  ) \
  18.     #( #asString #printString #==  ) \
  19.     temp 2 4 > >
  20.  
  21.